home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / prcmfixs.arc / PRCMHOST.ARC / PRCMHOST.CMD < prev   
OS/2 REXX Batch file  |  1987-06-08  |  2KB  |  83 lines
  1. ;
  2. ;  This is a primitive example of automating a file transfer with
  3. ;  a machine running ProComm's host.  It is not robust and it makes
  4. ;  many assumptions, but it works fairly reliably if your modem uses
  5. ;  a Hayes compatible command set and you have ProComm setup right.
  6.  
  7.  
  8. ;
  9. ;  You must customize this section
  10. ;
  11. DIAL "1"                    ;* Dialing directory entry number
  12. ASSIGN S0 "*.WRK"           ;* File specs for up/down-loading
  13. ASSIGN S1 "hostname"        ;* Name to send to host
  14. ASSIGN S2 "hostpswd"        ;* Host password
  15. ASSIGN S3 "shllpswd"        ;* Shell password (for remote Host shutdown)
  16.  
  17. EMULATE ANSI                ;* Use ANSI-BBS emulation
  18. START:
  19. TRANSMIT "!"                ;* Transmit several Carriage returns waiting
  20. WAITFOR "Name:" 7           ;* .. for first prompt
  21. IF NOT WAITFOR
  22.    GOTO START
  23. ENDIF
  24. TRANSMIT S1                 ;* Send name
  25. TRANSMIT "!"
  26. WAITFOR "word:"
  27. TRANSMIT S2                 ;* Send host password
  28. TRANSMIT "!"
  29. WAITFOR "choice?"
  30.  
  31. MESSAGE " "
  32. MESSAGE " "
  33. MESSAGE "You must identify an operation by modifying the .CMD file"
  34. MESSAGE " "
  35. ;GOSUB KERMDOWN      ; Make your
  36. ;GOSUB KERMUP        ; choice
  37.  
  38. ;
  39. ; Include final processing here.  Transmit a ^Z^M to make the host
  40. ; return to Terminal mode or command file, a G^M to simply terminate
  41. ; the call.  It is setup by default here to make both sides exit ProComm.
  42. ;
  43.  
  44. BYE:
  45. PAUSE 1
  46. TRANSMIT "!"
  47. WAITFOR "choice?"
  48. IF NOT WAITFOR
  49.    GOTO BYE
  50. ENDIF
  51. TRANSMIT "^Z^M"      ;* Shut the host down
  52. WAITFOR "word:"
  53. TRANSMIT S3
  54. PAUSE 5
  55. QUIT
  56.  
  57.  
  58. KERMDOWN:
  59. ;
  60. ; Subroutine example of an automated Kermit download
  61. ;
  62. TRANSMIT "D!"        ;* D for download
  63. WAITFOR "choice?"
  64. TRANSMIT "K!"        ;* K for Kermit
  65. WAITFOR "spec?"
  66. TRANSMIT S0          ;* Tell the host which file(s)
  67. TRANSMIT "^M"
  68. WAITFOR "dure."
  69. GETFILE KERMIT
  70. RETURN
  71.  
  72.  
  73. KERMUP:
  74. ;
  75. ; Subroutine example of an automated Kermit upload
  76. ;
  77. TRANSMIT "U!"        ;* U for upload
  78. WAITFOR "choice?"
  79. TRANSMIT "K!"        ;* K for Kermit
  80. WAITFOR "dure."
  81. SENDFILE KERMIT S0
  82. RETURN
  83.